home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / ALTERNET.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  702 b   |  40 lines
  1. # Alternet PPP  login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-9-95 BPD
  4.  
  5. STRING username
  6. STRING password
  7.  
  8. SetTimeOut  90
  9. CfgGetValue "Username" username
  10.  
  11. IF result = 0 THEN
  12.     GetInput "Enter your username:" username
  13.     IF result = 0 THEN
  14.         PRINT "Warning, no username entered."
  15.     ELSE
  16.         PRINT "Username set to:"; username
  17.     ENDIF
  18. ENDIF
  19.  
  20. CfgGetValue "Password" password
  21.  
  22. IF result = 0 THEN
  23.     GetPassword "Enter your password:" password
  24.     IF result = 0 THEN
  25.         PRINT "Warning, no password entered."
  26.     ELSE
  27.         PRINT "Password set."
  28.     ENDIF
  29. ENDIF
  30.  
  31. CommWaitFor "login:"
  32.     CommSend username
  33.     CommSend "%r"
  34.  
  35. CommWaitFor "password:"
  36.     CommSend password
  37.     CommSend "%r"
  38.  
  39. END
  40.